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2x8( BASIC. 


Hardware 


"Big Ears" may be connected to the ZX81 using either the 


William Stuart, Redditch or Technomatic interfaces. 


Connections 


Big Ears Technomatic Redditch William Stuart 


ZX80/81 Port RET8 Synthesiser+16 line I/O 
Ov READ skt pin 9 pin 18 pin => 
OV READ skt pin 16 pin 1 pin +5v 
FO E READ skt pin 8 pin 29 pin B7 
FI READ skt pin 7 pin 28 pin Be 
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Software (ZX81) 


The software listings supplied include a large REM statement at 

line 1. This is used as a dummy location for a machine code 

routine. When entering line 1 initially it is vital to ensure that it contains 
contains a minimum of 100 characters, This is best done by typing 
1234567890 repeatedly at least ten limes, then checking by counting 

the O's. 


Procedure 


Enter all the Basic code, und SAVE it carefully on tape. It pays 
to use several tapes in sequence, SAVEing again after typing a 
reasonable amount of new code. (e.g. SAVE 'SPEECH") 


When this has been done the computer should be initialised with NEW 
and the program loaded. Check that it is still correct! 


Now type RUN. The screen should clear, and the question 
ADDRESS? should appear. 


You are now in a memory eximine /change (debug) routine, and 

can enter machine code from the listing in Table 1. Type in 

the first address, 16514, followed by RETURN, and the current 
contents will be displayed. Now type in the requirad—contents— 
drom-TabteT7 TGllowed by RETURN. The entry (change) will 

be confirmed on the screen, and the next location (16515) displaved, 
Carry on entering the new contents until the entire code has been 
typed in, Cheek periodically thut the successive addresses tally 
with the left hand column of Table 1, which gives every tenth 
address. if you make a mistake, or wish to check what you have. 
done, then simply type a full-stop (.) instead of new contents, foll 
followed by RETURN. This returns the programme to address- 
mode. When checking contents simply press RETURN to advance 
to the next location without making any change. 


When the machine code has been entered and fully checked, type 
an X followed by RETURN to terminate the programme, then 
SAVE the programme on a new tape. This is now the working 
Speech Recognition Programme, Do not try to run it yet! It 


Loading the Programme 


(N.B. For RETURN please read NEW LINE 

c Initialise system (remove power or type NEW+RET URN) 
: Type POKE 16389,127 RETURN , then NEW + RETURN 
c Type LOAD "SPEECH" (or whatever name used to SAVE) and load 

the complete programme from cassette) 

Type GOTO 40 (RETURN) to run the Speech Recognition Software 

Proceed as per Chapter 3 of the User Manual, noting that the 

screen goes blank while the system waits for a word, also while 

matching it. 


The whole program, together with any Voiceprints which have 
been learnt, may be SAVEd. Use STOP to return to ZX81 
command mode, then SAVE in the usual way. LOAD as before, 
remembering to type NEW.... POKE 16389,127.... , but this 
time start the programme with GOTO 100. (this does not clear 
down all the variables, including the Voiceprints) 


1 REM 2545679901 23454679901 2245678901 254567 
99012345678901 2345678901 254557890 -~ =-= =~ - ~ ete (sea text) 


2 LET XX=32512 

L0 REM MACHINE CODE LOADER (C) 1981 WM STUART SYSTEMS 
12 SCROLL : 

13 PRINT "ADDRESS?" 

14 INPUT A$ 

ló IF Af$="" THEN GOTO 20 

18 LET AD=VAL (A$) 

19 GOTO 21 

20 LET ADSADHI 

21 SCROLL 

22 PRINT AD, PEEK CAD) ; 

V4 INPUT C$ 

26 IF C#="" THEN GOTO 20 

og IF Che "2" THEN GOTU 13 

30 LET CONT sVAL(C$) 

32 POKE AD, CONT 

34 PRINT "Z "3 CONT ; 

36 GOTO 20 

40 REM & 
GW LET 
Sa LET 
y CET XIETISTI 

S6 LET BO=XX+128 

59 LET Bl=sBO+té4 

40 DIM F(Z0) 

bi DIM C(VL) 

62 DIM V#(VL, 15) 

63 DIM V(VL,30) 

64 DIM N(30) 

65 DIM R(S) 

66 DIM SiS) 

70 FOR 0=0 TO 4 

72 LET RID-DJEFEEE (166044240) 
73 LET S(Q+1)=PEEKG 6605 4240) 
74 NEXT Q 

100 PRINT "LEARN OR TEST?" 
102 INPUT A$ 

103 CLS 

105 IF Ag="L" THEN GOTO 200 
110 PRINT "PLEASE SPEAR WHEN SCREEN BLANKS" 
115 SLOW 

120 GOSUR 4000 

140 BOSUD 2000 

150 GOTO 100 

200 GOSUB 3000 

210 GOTO 100 


EECH INFUT FOR 7X81 (C) WM STUART SYSTEMS LTD 1981 


1000 
1010 
1012 
1014 
1020 
1030 
1050 
1060 
1070 
1100 
1120 
1130 
1140 
1150 
1160 
1170 
1175 
1180 


2000 
2010 
2015 
2020 
2030 
2035 
2040 
2050 
—2055 
2057 
2060 
2070 
2075 
2077 
2080 
2085 
2086 
2087 
2090 
2095 


3000 
3001 
3002 
3005 
3006 
3008 
3010 
3020 
3025 
3030 
3040 
3041 
3042 


3048 


REM CLASSIFY INTO FREQUENCY SPACE 
FOR E-1 TO 30 

LET P(E)=0 

NEXT E 

FOR K=0 TO 63 

LET F0=1 

IF R(FO)D PEEK(B0+K) THEN GOTO 1100 
LET FO-FOr 

IF FO<6 THEN GOTO 1050 

LET Fl-l 

IF S(F1)> PEEK(BIHK) THEN GOTO 1150 
LET Fl-Fl-l 

IF F1<5 THEN GOTO 1120 

LET E-Fl-1)t6-FO 

LET P(E)=P(E)+1 

NEXT K 

GOSUB 5000 

RETURN 

REM CORRELATE AND IDENTIFY 

FOR Wel TO VL 

LET C(W)=0 

FOR E-1 TO 30 

LET C(W)=C(W)+P(E)*V(W, E) 


NEXT E 

NEXT W 

REM NOW FIND BEST li 
EET BW T 

LET BC C(L) 


FOR W=2 TO VL 

IF CW)<BC THEN GOTO 2080 
LET BW=W 

LET BC=C(W) 

NEXT W 

FOR We1 TO VL 

PRINT v$Ww), C(W) 

NEXT W 

PRINT "YOU SAID '';V$(BW) 
RETURN 


REM VOICEPRINT GENERATOR 
CES 

PRINT "NEW WORD NUMBER?" 
INPUT WD 

PRINT WD 

PRINT "TYPE IN WORD:" 

INPUT V$(WD) 

FOR E-1 TO 30 

LET N(E)=0 

NEXT E 

FOR N1 TO LR 

CLS 

PRINT "WHEN SCREEN BLANKS" 


FRNT "PLEASE SAY ";V$(WD) 


3050 GOSUB 4000 
3055 PRINT "THANK YOU" 

3060 FOR E-1 TO 30 

3065 LET N(E)=N(E)+P(E) 

3070 NEXT E 

3075 NEXT N 

3080 LET $-0 

3082 FOR E=1 TO 30 

3084 LET V(WD, E)=N(E)/LR-2. 133 
3086 LET S=S+ABS(V(WD,E)) «2 
3088 NEXT E 

3090 LET S-SQR $ 

3092 FOR E-1 TO 30 

3094 LET V(WD, E)-8*V(WD, E)/S 
3096 NEXT E 

3098 RETURN 


4000 REM LISTEN 


4010 FOR X=0 TO 63 
4020 POKE BO-X,0 
4025 POKE BL-X,0 
4020 NEXT X 

4035 PRINT "NOW!" 
4036 CLS l 
LIIR AaS santi 
4040 LET X-USR 16514 
4045 PRINT "OKAY" 
4046 SLOW 

4047 FOR X-1 TO 50 
4048 NEXT X 

4049 FAST 

4050 GOSUB 1000 
4060 RETURN 


5000 REM PATTERN PRINT 
5002 FOR R-1- TO 5 

5005 FOR C-L TO 6 

5010 PRINT P(C+(R-1)*6);" s 
5020 NEXT C 

5030 PRINT 

5040 NEXT R 

5050 RETURN 


Optional Modification - - see User News at end of Manual 


3076 LET X=N(1) 

3077 LET N(1)-N(1)/4 

3078 LET NS=LR*64-X+N(1) 

3079 LET AV-(NS/LR)/30 

3084 LET une E)=N(E) /LR-AV 
1)=P(1) /4 


2005 LET P 


TABLE 1 
Address Contents 

X 
16514 62: 39, x Al, r35, 
16524 Aids 135; 221 
16534 127, 22, 64, 30 
16544 103: 173°. 23 48 
16554 3 253 -52 0 
16564 32 231 203 3 
16574 134 0 55 63 
16584 115. -Q 253 115 
16594 253- 35 21 32 
16604 6 32 13 48 


120, 
128 
14 


: Machine Code Listing for ZX81 


AEA 
127 
160 


52 
16 
221 
8 
204 
33 
25 


NB For Wm. Stuart Interface use values (a) 
For Technomatic I/O Port use values (b) 
For Redditch I/O Port use values (c) 


199, 
253 
219 
58 


ÀELŻS IF using Wm, Stat Mkt beard: (Mkz boards are Identified as suet.) 


If using Redditch 1/0 —add the followimg-time to the main Basic 


programme: 


4038 


POKE 37891, 144 


(It is assumed that the Redditch board has link 2 in position 1, 
giving addresses 37891 for status control, and 37888 for data.) 


STOP PRESS 


New Redditch Ports, type RE98 have different addresses. 
Locations (c) above should be entered as 58 0 


line 4038 is POKE 40963,144 


Si 


160, and Basic 


If using Chatterbox as the Big Ears interface, enter locations 


(a) above as 


219 


127 0. 
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